MacWorld 2005 July/Macworld CD 17.05.iso/Data/Main.dxr/00022_go to'er.ls

Text File | 2000-02-28 | 408 b | 22 lines

property whichFrame

on new me
  return me
end

on getPropertyDescriptionList me
  description = [:]
  addProp(description, #whichFrame, [#default: "none", #format: #string, #comment: "The frame-label to go to:"])
  return description
end

on getBehaviorDescription me
  return "Goes to the framelabel defined by #whichFrame"
end

on mouseUp me
  if whichFrame <> "none" then
    go(whichFrame)
  end if
end